10 REM ** STARTING LINE **
20 S=53100:REM CHANGE TO RELOCATE ML
30 FORI=0TO95:READA:POKES+I,A:B=B+A:NEXT
40 IFB<>10742THENPRINT"ERROR IN DATA STATEMENTS!":END
50 DEFFNHI(X)=INT(X/256):DEFFNLO(X)=X-FNHI(X)*256
60 FORI=0TO4:READA,B:POKES+A,FNLO(S+B):POKES+A+1,FNHI(S+B):NEXT
70 POKES+18,FNLO(S+48):POKES+23,FNHI(S+48)
80 PRINT:PRINT"SYS"S"TO ACTIVATE OR DEACTIVATE":PRINT"'*' = ACTIVE"
90 DATA 173,95,19,208,28,173,48,3,141,94,19,173,49,3,141,95,19,169,48,141,48,3
100 DATA 169,19,141,49,3,169,42,32,210,255,96,141,49,3,173,94,19,141,48,3,169,0
110 DATA 141,95,19,96,72,165,184,72,165,185,72,169,5,168,166,186,32,186,255,32
120 DATA 192,255,162,5,32,198,255,32,207,255,170,32,207,255,32,205,189,169,5,32
130 DATA 195,255,104,133,185,104,133,184,104,76,0,0
140 DATA 1,95,9,94,15,95,37,94,45,95